home *** CD-ROM | disk | FTP | other *** search
- object frmAbout: TfrmAbout
- Left = 303
- Top = 161
- ActiveControl = OKButton
- BorderStyle = bsDialog
- Caption = 'How to contact us'
- ClientHeight = 350
- ClientWidth = 414
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 413
- Height = 313
- ActivePage = TabSheet1
- TabOrder = 2
- object TabSheet1: TTabSheet
- Caption = 'About'
- object Panel1: TPanel
- Left = 1
- Top = 4
- Width = 401
- Height = 277
- BevelInner = bvRaised
- BevelOuter = bvLowered
- BevelWidth = 3
- TabOrder = 0
- object Copyright: TLabel
- Left = 136
- Top = 65
- Width = 142
- Height = 13
- Caption = 'Contact Plus Corporation'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- IsControl = True
- end
- object Comments: TLabel
- Left = 154
- Top = 83
- Width = 89
- Height = 13
- Caption = 'PO Box 372577'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- IsControl = True
- end
- object Label1: TLabel
- Left = 110
- Top = 101
- Width = 184
- Height = 13
- Caption = 'Satellite Beach, FL 32937-0577'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- IsControl = True
- end
- object Label2: TLabel
- Left = 29
- Top = 192
- Width = 353
- Height = 19
- Alignment = taCenter
- AutoSize = False
- Caption = '321-984-2592 voice'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- IsControl = True
- end
- object Label3: TLabel
- Left = 29
- Top = 210
- Width = 353
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = '321-984-8192 fax'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- IsControl = True
- end
- object Label5: TLabel
- Left = 29
- Top = 228
- Width = 353
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'http://www.contactplus.com'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- IsControl = True
- end
- object lblVersion: TLabel
- Left = 25
- Top = 39
- Width = 353
- Height = 21
- Alignment = taCenter
- AutoSize = False
- Caption = 'Version 1.53'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- IsControl = True
- end
- object Label7: TLabel
- Left = 21
- Top = 126
- Width = 361
- Height = 53
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'This is ad-supported freeware. There are no limitations or nag ' +
- 'screens. Registration will remove all advertising.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- WordWrap = True
- IsControl = True
- end
- object RzLabel1: TRzLabel
- Left = 136
- Top = 11
- Width = 131
- Height = 26
- Caption = 'Spam Buster'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -24
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- BevelWidth = 0
- FrameSides = []
- TextStyle = tsRaised
- end
- object Label4: TLabel
- Left = 268
- Top = 10
- Width = 16
- Height = 19
- Caption = '�'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- IsControl = True
- end
- object Label8: TLabel
- Left = 8
- Top = 253
- Width = 309
- Height = 15
- Caption = 'Spam Buster is a trademark of Contact Plus Corporation'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- IsControl = True
- end
- object imHammer: TImage
- Left = 10
- Top = 11
- Width = 34
- Height = 35
- Picture.Data = {<image000.ico>}
- end
- object Image1: TImage
- Left = 354
- Top = 11
- Width = 34
- Height = 35
- Picture.Data = {<image001.ico>}
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Bust a spam'
- object Label9: TLabel
- Left = 5
- Top = 249
- Width = 322
- Height = 31
- AutoSize = False
- Caption =
- 'Frustrated by junk e-mail? Click on the SpamMeister above to '#39'b' +
- 'ust'#39' a spam and relieve some tension.'
- WordWrap = True
- end
- object edPoints: TRzLabel
- Left = 341
- Top = 27
- Width = 56
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0'
- OnDblClick = RzLabel2DblClick
- BevelWidth = 0
- FrameSides = []
- TextStyle = tsRaised
- end
- object RzLabel2: TRzLabel
- Left = 341
- Top = 8
- Width = 56
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Points:'
- OnDblClick = RzLabel2DblClick
- BevelWidth = 0
- FrameSides = []
- TextStyle = tsRaised
- end
- object RzLabel3: TRzLabel
- Left = 330
- Top = 262
- Width = 54
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Sound?'
- FocusControl = cbSound
- BevelWidth = 0
- FrameSides = []
- TextStyle = tsRaised
- end
- object pnl1: TPanel
- Left = 4
- Top = 5
- Width = 327
- Height = 241
- Caption = 'pnl1'
- TabOrder = 0
- object im1: TImage
- Left = 1
- Top = 1
- Width = 325
- Height = 239
- Cursor = crHandPoint
- Align = alClient
- Picture.Data = {<image002.bmp>}
- Stretch = True
- OnClick = im1Click
- end
- end
- object pnl2: TPanel
- Left = 4
- Top = 5
- Width = 327
- Height = 241
- Caption = 'pnl2'
- TabOrder = 1
- Visible = False
- object im2: TImage
- Left = 1
- Top = 1
- Width = 325
- Height = 239
- Cursor = crHandPoint
- Picture.Data = {<image003.bmp>}
- Stretch = True
- end
- end
- object cbSound: TCheckBox
- Left = 388
- Top = 262
- Width = 15
- Height = 17
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 2
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Version Check'
- object lblVers: TLabel
- Left = 50
- Top = 88
- Width = 305
- Height = 33
- Alignment = taCenter
- AutoSize = False
- Caption = 'lblVers'
- WordWrap = True
- end
- object Label6: TLabel
- Left = 16
- Top = 16
- Width = 160
- Height = 16
- Caption = 'You currently have version:'
- end
- object btVers: TButton
- Left = 94
- Top = 192
- Width = 217
- Height = 33
- Caption = 'Click to check your version'
- TabOrder = 0
- OnClick = btVersClick
- end
- end
- end
- object OKButton: TBitBtn
- Left = 16
- Top = 317
- Width = 77
- Height = 30
- Caption = 'Close'
- Default = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 0
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object btWeb: TBitBtn
- Left = 262
- Top = 317
- Width = 149
- Height = 30
- Hint = 'Launch your browser to Contact Plus Home Page'
- Caption = 'Contact Plus Home Page'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btWebClick
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object btRecommend: TButton
- Left = 97
- Top = 317
- Width = 161
- Height = 30
- Caption = 'Recommend to a friend'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btRecommendClick
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 500
- OnTimer = Timer1Timer
- Left = 12
- Top = 259
- end
- end
-